object CodeEntryForm: TCodeEntryForm
  Left = 275
  Top = 171
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Registration & Customization preliminaries'
  ClientHeight = 184
  ClientWidth = 490
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 125
  TextHeight = 16
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 490
    Height = 184
    ActivePage = InstructionsTab
    Align = alClient
    TabOrder = 0
    object ValidationTab: TTabSheet
      Caption = 'Validation'
      object Panel1: TPanel
        Left = 0
        Top = 9
        Width = 480
        Height = 144
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object Panel3: TPanel
          Left = 25
          Top = 72
          Width = 431
          Height = 62
          TabOrder = 0
          object Panel2: TPanel
            Left = 12
            Top = 10
            Width = 179
            Height = 41
            BevelInner = bvRaised
            BevelOuter = bvLowered
            Caption = 'Please enter your code:'
            TabOrder = 0
          end
          object RegCodeEdit: TEdit
            Left = 206
            Top = 18
            Width = 121
            Height = 24
            TabOrder = 1
          end
          object Button1: TButton
            Left = 345
            Top = 18
            Width = 75
            Height = 25
            Caption = 'Done'
            TabOrder = 2
            OnClick = Button1Click
          end
        end
        object Panel4: TPanel
          Left = 27
          Top = 10
          Width = 428
          Height = 53
          TabOrder = 1
          object Label1: TLabel
            Left = 18
            Top = 2
            Width = 62
            Height = 16
            Caption = 'First name'
          end
          object Label2: TLabel
            Left = 222
            Top = 2
            Width = 54
            Height = 16
            Caption = 'Surname'
          end
          object FirstNameEdit: TEdit
            Left = 18
            Top = 19
            Width = 169
            Height = 24
            TabOrder = 0
            OnChange = FirstNameEditChange
            OnExit = FirstNameEditExit
          end
          object SurnameEdit: TEdit
            Left = 221
            Top = 19
            Width = 169
            Height = 24
            TabOrder = 1
            OnChange = SurnameEditChange
            OnExit = SurnameEditExit
          end
        end
      end
    end
    object LocationTab: TTabSheet
      Caption = 'Location'
      object ScrollBox1: TScrollBox
        Left = 0
        Top = 0
        Width = 482
        Height = 153
        HorzScrollBar.Range = 200
        VertScrollBar.Range = 320
        Align = alClient
        AutoScroll = False
        TabOrder = 0
        object LocationPanel: TPanel
          Left = 0
          Top = 0
          Width = 457
          Height = 320
          Align = alClient
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object Label7: TLabel
            Left = 228
            Top = 183
            Width = 24
            Height = 16
            Caption = 'deg'
            Font.Color = clTeal
            Font.Height = -14
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label8: TLabel
            Left = 291
            Top = 183
            Width = 21
            Height = 16
            Caption = 'min'
            Font.Color = clTeal
            Font.Height = -14
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label9: TLabel
            Left = 350
            Top = 183
            Width = 22
            Height = 16
            Caption = 'sec'
            Font.Color = clTeal
            Font.Height = -14
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label10: TLabel
            Left = 400
            Top = 185
            Width = 49
            Height = 13
            Caption = 'N /S  E/W'
            Font.Color = clTeal
            Font.Height = -12
            Font.Name = 'Small Fonts'
            Font.Style = []
            ParentFont = False
          end
          object Label11: TLabel
            Left = 98
            Top = 292
            Width = 280
            Height = 16
            Caption = 'Default settings will apply if any field is left blank'
            Font.Color = clRed
            Font.Height = -14
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object BoxLabel1: TBoxLabel
            Left = 9
            Top = 9
            Width = 439
            Height = 45
            Caption = 
              'Please ensure that your location and geographic position are as ' +
              'given on your Registration E-mail  (or from your own sources if ' +
              'they are accurate)'
            TextBorder = 2
            Color = 8454143
            ParentColor = False
            WordWrap = True
          end
          object LatLabel: TPanel
            Left = 8
            Top = 154
            Width = 122
            Height = 32
            BevelInner = bvRaised
            BevelOuter = bvLowered
            Caption = 'Latitude'
            TabOrder = 2
          end
          object LongLabel: TPanel
            Left = 8
            Top = 202
            Width = 121
            Height = 32
            BevelInner = bvRaised
            BevelOuter = bvLowered
            Caption = 'Longitude'
            TabOrder = 3
          end
          object LatDegBox: TEdit
            Left = 216
            Top = 154
            Width = 48
            Height = 24
            Hint = 'Degrees'
            MaxLength = 10
            TabOrder = 4
          end
          object LatMinBox: TEdit
            Left = 277
            Top = 154
            Width = 48
            Height = 24
            Hint = 'Minutes'
            MaxLength = 2
            TabOrder = 5
          end
          object LongDegBox: TEdit
            Left = 216
            Top = 202
            Width = 48
            Height = 24
            Hint = 'Degrees'
            MaxLength = 10
            TabOrder = 8
          end
          object LongMinBox: TEdit
            Left = 277
            Top = 202
            Width = 48
            Height = 24
            Hint = 'Minutes'
            MaxLength = 2
            TabOrder = 9
          end
          object NSBox: TComboBox
            Left = 399
            Top = 154
            Width = 52
            Height = 24
            Hint = 'North or South'
            ItemHeight = 16
            Items.Strings = (
              'N'
              'S')
            TabOrder = 7
          end
          object EWBox: TComboBox
            Left = 400
            Top = 202
            Width = 52
            Height = 24
            Hint = 'East or West'
            ItemHeight = 16
            Items.Strings = (
              'E'
              'W')
            TabOrder = 11
          end
          object Panel9: TPanel
            Left = 8
            Top = 250
            Width = 122
            Height = 32
            BevelInner = bvRaised
            BevelOuter = bvLowered
            Caption = 'Time Zone'
            TabOrder = 12
          end
          object ZoneBox: TComboBox
            Left = 216
            Top = 254
            Width = 52
            Height = 24
            Hint = 'International time zone'
            ItemHeight = 16
            Items.Strings = (
              '0'
              '1'
              '2'
              '3'
              '4'
              '5'
              '6'
              '7'
              '8'
              '9'
              '10'
              '11'
              '12')
            TabOrder = 13
          end
          object LocName1Label: TPanel
            Left = 8
            Top = 63
            Width = 123
            Height = 32
            BevelInner = bvRaised
            BevelOuter = bvLowered
            Caption = 'Locality + State'
            TabOrder = 14
          end
          object DaylightSaving: TCheckBox
            Left = 288
            Top = 255
            Width = 118
            Height = 17
            Caption = 'Daylight saving?'
            State = cbChecked
            TabOrder = 15
          end
          object LocName2Panel: TPanel
            Left = 8
            Top = 107
            Width = 122
            Height = 32
            BevelInner = bvRaised
            BevelOuter = bvLowered
            Caption = 'Country'
            TabOrder = 16
          end
          object LocusEdit: TEdit
            Left = 191
            Top = 66
            Width = 241
            Height = 24
            Hint = 'Town/city & state'
            TabOrder = 0
          end
          object PatriaEdit: TEdit
            Left = 191
            Top = 110
            Width = 241
            Height = 24
            Hint = 'Country'
            TabOrder = 1
          end
          object LatSecBox: TEdit
            Left = 336
            Top = 154
            Width = 48
            Height = 24
            Hint = 'Seconds'
            MaxLength = 2
            TabOrder = 6
            Text = '0'
          end
          object LongSecBox: TEdit
            Left = 336
            Top = 202
            Width = 48
            Height = 24
            Hint = 'Seconds'
            MaxLength = 2
            TabOrder = 10
            Text = '0'
          end
          object DMSLatConvertButton: TButton
            Left = 144
            Top = 154
            Width = 60
            Height = 25
            Hint = 'Decimal degrees to deg/min/sec'
            Caption = 'Convert'
            TabOrder = 17
            OnClick = DMSLatConvertButtonClick
          end
          object DMSLongConvertButton: TButton
            Left = 144
            Top = 202
            Width = 60
            Height = 25
            Hint = 'Decimal degrees to deg/min/sec'
            Caption = 'Convert'
            TabOrder = 18
            OnClick = DMSLongConvertButtonClick
          end
        end
      end
    end
    object InstructionsTab: TTabSheet
      Caption = 'Instructions'
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 482
        Height = 153
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object InstructionsMemo: TMemo
          Left = 2
          Top = 2
          Width = 478
          Height = 149
          Align = alClient
          Color = 8454143
          Lines.Strings = (
            
              'First of all, a very warm welcome into the global community of r' +
              'egistered '
            
              'Stella users!  Please carry out your Stella 2000 registration & ' +
              'customization in '
            'the following stages (the order is not too important): '
            ''
            
              'a) Click the Location tab and fill in ALL the fields with the ge' +
              'ographic data '
            
              'given in the startup preferences at the top of your registration' +
              ' e-mail. If you '
            
              'like, just cut & paste these entries into the Registration & Cus' +
              'tomization form '
            
              'here. Fields required are: Locality & State, Country, Latitude d' +
              'eg:min:sec, '
            'Longitude deg:min:sec, time zone, daylight saving on/off.  '
            ''
            
              'b) Click the Validation tab and enter your first name and surnam' +
              'e EXACTLY '
            
              'as they are given in your startup preferences at the top of your' +
              ' registration '
            
              'message (including any spaces and punctuation marks). To be abso' +
              'lutely '
            
              'safe, you are advised to Cut & Paste these entries directly from' +
              ' there into the '
            'edit boxes provided here on the form. '
            ''
            
              'c) Finally, enter your registration number. The number to enter ' +
              'is the '
            
              'registration code given in the title of your registration messag' +
              'e. Input the '
            'number carefully, and click [done] when ready. '
            ''
            
              'If all goes well you will see a welcome message. Click OK, and S' +
              'tella'#39's skies '
            'will appear viewed from your very own home location.'
            ''
            
              'The order in which you carry out this procedure is not vital. Th' +
              'e most '
            
              'important entries are your name and the correct code number, con' +
              'firmed by '
            'clicking [done].'
            ''
            
              'In the unlikely event that you encounter problems during this on' +
              'e-time initial '
            
              'registration of your copy of Stella, please don'#39't hesitate to ge' +
              't in touch. We'#39're '
            'here to help.'
            ''
            'Roger Hughes,'
            'Swimming Elk Software.'
            'Swimming.Elk@sci.fi')
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
    end
  end
end